Set WshShell = WScript.CreateObject("WScript.Shell")
strFolder = WshShell.CurrentDirectory
set oShellLink = WshShell.CreateShortcut(strFolder & "\ServHoraSrv - Desinstalao.lnk")
oShellLink.TargetPath = strFolder & "\jre\bin\javaw.exe"
oShellLink.Arguments = "-Xmn8M -Xms30M -Xss2M -Xverify:none -Xmx1024M -XX:InitialCodeCacheSize=5M -XX:PermSize=30M -XX:MaxPermSize=128M -XX:MaxHeapFreeRatio=20 -XX:MinHeapFreeRatio=20 -cp captura-servidor-service-servico.jar br.com.senior.captura.servidor.service.servico.appmain.appmain -uninstall"
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = strFolder
oShellLink.Save